home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / shelp50a.zip / HELPMGR.PRG < prev    next >
Text File  |  1991-08-11  |  5KB  |  144 lines
  1.  
  2. *==========================================================================
  3. FUNCTION HELPMGR
  4. *    Project Name: Helpdemo
  5. *    Project Description: Superhelp Library   
  6. *    Written By: Darryl Strickland   
  7. * 
  8. *    Help Manager System Generated by Superhelp Codegen 5.0
  9. *    Generated August 11, 1991  -   8:43 PM
  10. *    Copyright (c) by DJS Applications    
  11. *
  12. *    Superhelp Codegen Help Manager Produced (SHELP.MGR)
  13. *    After Generating * New * Help Manager File - Delete Helpmgr.Dbf
  14. *
  15. *    Thank you for using Superhelp Code Generator 5.0  -  DJS Applications
  16. *==========================================================================
  17. PARAMETER cProc,nLine,cVar
  18. LOCAL aFldnames:={"Helpmgr->DESC"},aFldhdrs:={SPACE(11)+"HELP MANAGER"}
  19. LOCAL ahlpflds:={{"DESC", "C", 34, 0}, {"POINTER", "N", 7, 0 }}
  20. LOCAL nRowhlp,nColhlp,lBadfile,cOldArea,cOldColor
  21. LOCAL cInit_Box,nCurState,nMgrFile,nHlpCnt,nHlpsize
  22. LOCAL nBurnSize,cBurnDate,cBurnTime,nMgrPt,nBoxSize
  23. PRIVATE nHlphandle,nTopRow,nLeftCol,nBotRow,nRightCol,cHeader
  24. PRIVATE cFooter,nHeadcol,nFootcol,cWinColor,nShadClrf,nShadClrb,cFrame,cMidBar
  25. PRIVATE nWinType,cShadType,nBoxMethod,lIplode,lXplodeTxt,nHlpSpacer
  26. PRIVATE cHeadColor,cFootColor,cFramColor,cTrimHdr,nFootType
  27. PRIVATE nLoop,cHlpString,nDspMeth,nLineSize,nNoFrames,nBliMrkx,cOldScr
  28. PRIVATE lMicroVoic,lEditRef,nPadSize,nLookPt,nTxtSize,nMWidth,nNoLines,cTrimFoot
  29. PRIVATE nText_Cnt,nScrnSize,nStartRow,lOutLoop,nStartPt,cLstDir
  30. PRIVATE nReadSize,lTopPage,lBotPage,nByteRead,nPrevRead,aHelpLine:={}
  31. PRIVATE nLines,nCnt,cSpeakStr,lSpeakOk,lVoiceload
  32. SETBLINK(.F.)
  33. nRowhlp := ROW()
  34. nColhlp := COL()
  35. SET KEY 28 TO
  36. cOldcolor := SETCOLOR()
  37. cOldarea := SELECT()
  38. nCurState := SETCURSOR(0)
  39. cOldscr := SAVESCREEN(0,0,MaxRow(),MaxCol())
  40. nBliMrkx := 13
  41. IF !FILE("HELPMGR.DBF")
  42.    IF FILE("SHELP.MGR")
  43.       cInit_Box := SAVESCREEN(09,19,14,61)
  44.       nNoFrames := SRIGHTBX(09,20,13,60,"╓─╖║╜─╙║ ",.T.,'B/W+','B/W+','R',.T.,7,0)
  45.       @09,22 SAY "╢ Help Message ╟"
  46.       @11,22 SAY "Please wait while setting up Manager"
  47.       @13,25 SAY "╢ Superhelp Codegen 5.0 ╟"
  48.       nMgrFile := FOPEN("SHELP.MGR",2)
  49.       FSEEK(nMgrFile,0)
  50.       nHlpsize := FSEEK(nMgrFile,0,2) - 20
  51.       FSEEK(nMgrFile,0)
  52.       nHlpCnt := (nHlpsize -179) / 42
  53.       DBCREATE("HELPMGR.DBF",aHlpflds)
  54.       USE HELPMGR NEW
  55.       INDEX ON SUBSTR(HELPMGR->Desc,1,10) TO Helpmgr
  56.       SET INDEX TO HELPMGR
  57.       nMgrpt := 179
  58.       cHlpString := SPACE(42)
  59.       FOR nLoop := 1 TO nHlpCnt
  60.           FSEEK(nMgrFile,nMgrpt)
  61.           FREAD(nMgrFile,@cHlpString,42)
  62.           nMgrpt := nMgrpt + LEN(cHlpString)
  63.           APPEND BLANK
  64.           HELPMGR->DESC := SUBSTR(cHlpString,1,35)
  65.           HELPMGR->POINTER := VAL(SUBSTR(cHlpString,36))
  66.        NEXT
  67.        USE
  68.        FCLOSE(nMgrFile)
  69.        IPLODEBX(nNoFrames)
  70.        RESTSCREEN(09,19,14,61,cInit_Box)
  71.    ELSE
  72.        SRIGHTBX(09,20,13,60,"╓─╖║╜─╙║ ",.F.,'B/W+','B/W+','R',.T.,7,0)
  73.        @09,22 SAY "╢ Help Error ╟"
  74.        @10,22 SAY "Please restore SHELP.MGR from disk"
  75.        @13,25 SAY "╢ Superhelp Codegen 5.0 ╟"
  76.        INKEY(10)
  77.        SETCOLOR(cOldcolor)
  78.        SET KEY 28 TO HELP
  79.        @nRowhlp,nColhlp SAY ""
  80.        RESTSCREEN(0,0,MaxRow(),MaxCol(),cOldscr)
  81.        RETURN NIL
  82.    ENDIF
  83. ENDIF
  84. IF FILE("helpmgr.dbf")
  85. lBadfile := .F.
  86. IF FILE("SHELP.REF")
  87.    nHlphandle := FOPEN("SHELP.REF",2)
  88.    nHlpsize := FSEEK(nHlphandle,0,2)
  89.    nHlpCnt := (nHlpsize -179) / 41
  90.    FSEEK(nHlphandle,-20,2)
  91.    nBurnSize := SPACE(7)
  92.    cBurnDate := SPACE(8)
  93.    cBurnTime := SPACE(5)
  94.    FREAD(nHlphandle,@nBurnSize,7)
  95.    FREAD(nHlphandle,@cBurnDate,8)
  96.    FREAD(nHlphandle,@cBurnTime,5)
  97.    FSEEK(nHlphandle,0)
  98.    IF nHlpsize <> VAL(nBurnSize) .OR. '08/11/91' <> cBurnDate .OR. '20:42' <> cBurnTime
  99.       lBadfile := .T.
  100.    ENDIF
  101. ELSE
  102.    lBadfile := .T.
  103. ENDIF
  104. IF lBadfile
  105.      SRIGHTBX(09,20,13,60,"╓─╖║╜─╙║ ",.F.,'B/W+','B/W+','R',.T.,7,0)
  106.      @09,22 SAY "╢ Help Error ╟"
  107.      @11,22 SAY "Please restore SHELP.REF from disk"
  108.      @13,25 SAY "╢ Superhelp Codegen '+superver+' ╟"
  109.      INKEY(10)
  110.      SETCOLOR(cOldcolor)
  111.      SET KEY 28 TO HELP
  112.      @nRowhlp,nColhlp SAY ""
  113.      RESTSCREEN(0,0,MaxRow(),MaxCol(),cOldscr)
  114.      RETURN NIL
  115.    ENDIF
  116.    USE Helpmgr INDEX Helpmgr NEW
  117.    DO WHILE .T.
  118.       nBoxSize := IIF(nHlpCnt>15,20,nHlpCnt+6)
  119.       nNoFrames := SDROPBX(03,39,nBoxSize,78,"╓─╖║╜─╙║ ",.T.,'B/W+','B/W+','S',.T.,7,0)
  120.       @nBoxSize-2,40 SAY REPLICATE("─",38)
  121.       @5,39 SAY "╠═"
  122.       @5,77 SAY "═╣"
  123.       @nBoxSize-2,39 SAY "╟"
  124.       @nBoxSize-2,78 SAY "╢"
  125.       @nBoxSize-1,40 SAY "  Enter - Select        Esc - Exit"
  126.       DBEDIT(4,41,nBoxSize-3,76,aFldnames,"","",aFldhdrs)
  127.       IPLODEBX(nNoFrames)
  128.       IF !LASTKEY() == 27
  129.         HELPPREP(Helpmgr->POINTER) 
  130.         DSPHELP()
  131.         RESTSCREEN(0,0,24,79,cOldscr)
  132.       ELSE
  133.         EXIT
  134.       ENDIF
  135.    ENDDO
  136.    USE
  137.    SELECT(cOldarea)
  138.    SETCOLOR(cOldcolor)
  139.    SET KEY 28 TO HELP
  140.    SETCURSOR(nCurState)
  141.    @nRowhlp,nColhlp SAY ""
  142.    RESTSCREEN(0,0,MaxRow(),MaxCol(),cOldscr)
  143. ENDIF
  144. RETURN NIL